home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINFONTS
/
WSFONT.ZIP
/
CONFIRMS.FRM
< prev
next >
Wrap
Text File
|
1993-10-04
|
2KB
|
62 lines
VERSION 2.00
Begin Form ConfirmScreen
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "Font Manager"
ControlBox = 0 'False
Height = 2655
Left = 2250
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2250
ScaleWidth = 5835
Top = 2265
Width = 5955
Begin CommandButton Command1
Cancel = -1 'True
Caption = "Skip It"
Default = -1 'True
Height = 375
Index = 1
Left = 3480
TabIndex = 2
Top = 1560
Width = 1095
End
Begin CommandButton Command1
Caption = "Yes"
Height = 375
Index = 0
Left = 960
TabIndex = 1
Top = 1560
Width = 1095
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 1335
Left = 240
TabIndex = 0
Top = 120
Width = 5175
End
End
Option Explicit
Sub Command1_Click (Index As Integer)
Select Case Index
Case 0
MoveBasic% = True
Case 1
MoveBasic% = False
End Select
Unload Me
End Sub
Sub Form_Load ()
Label1 = TestFont$ + " is one of the basic fonts installed with Windows 3.1." + CRLF$ + CRLF$ & "If you remove this font, applications that rely upon it may not work properly. Do you still want to move this font to the reserve list?"
End Sub